home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / progjour / 1991 / 01 / menutest.prg < prev    next >
Text File  |  1990-11-25  |  3KB  |  93 lines

  1. **     MENUTEST.prg
  2. *    Author:    M. Steven Baker
  3.  
  4. *** Sample code to illustrate using MENUKEY
  5.  
  6. PUBLIC menubar(10), menuhelp(10)
  7. PUBLIC menuchoice, menusel, menuline, remenu, choice
  8.  
  9. CLEAR
  10.  
  11. SET MENU OFF
  12. SET STATUS OFF
  13. SET SCOREBOARD OFF
  14. SET DELETE ON
  15. SET EXACT ON
  16. SET ESCAPE OFF
  17.  
  18. SET BELL OFF
  19. SET TALK OFF
  20.  
  21.  
  22. ****** The VIEW DATA MENU screen
  23. repaint = .T.       && must repaint the whole screen
  24. rewindow = .T.      && must repaint the window
  25. remenu = .T.
  26. menusel = 1
  27.  
  28. DO WHILE .T.
  29.     IF (repaint)
  30.         *------ clear windows
  31.             SET COLOR to W/N         
  32.         clear
  33.         @ 0,27 to 2,52 DOUBLE   && draw header box
  34.         @ 2,3  to 22,76 DOUBLE
  35.         @ 2,27 SAY CHR(202)
  36.         @ 2,52 SAY CHR(202)
  37.     
  38.         *-------  write header in bold
  39.         SET COLOR TO W+/N
  40.         @ 1,31 SAY "View Resource Data"
  41.         SET COLOR to W/N
  42.     *------ write out some sample sub-titles at top
  43.         @ 3,5   SAY "EPA Reach #"
  44.         @ 4,5   SAY "River Name:"
  45.         repaint = .F.
  46.     ENDIF
  47.     IF (remenu)
  48.         SET COLOR TO W/N
  49.     *----------- our MENU BAR line
  50.         menuline = "Next  Previous  Downstream  Upstream  " + ;
  51.               "Trib  Resources  Flow  Quit"
  52.         menuchoice = "NPDUTRFQ"
  53.         menu_max = 8
  54.         menubar(1) = "03Next"
  55.         menubar(2) = "09Previous"
  56.         menubar(3) = "19Downstream"
  57.         menubar(4) = "31Upstream"
  58.         menubar(5) = "41Trib"
  59.         menubar(6) = "47Resources"
  60.         menubar(7) = "58Flow"
  61.         menubar(8) = "64Quit"
  62.         menuhelp(1) = "view Next river reach (alphabetic by name)"
  63.         menuhelp(2) = "view Previous river reach (alphabetic by name)"
  64.         menuhelp(3) = "view Downstream river reach"
  65.         menuhelp(4) = "view Upstream river reach"
  66.         menuhelp(5) = "view the upstream Tributary river reach"
  67.         menuhelp(6) = "view detailed Resource values for this river reach"
  68.         menuhelp(7) = "view detailed Flow and water quality data"
  69.         menuhelp(8) = "Quit to master menu"
  70.     ENDIF   && remenu
  71.  
  72.     badkey = .T.
  73.     DO WHILE (badkey)
  74.         do menukey
  75.         badkey = .F.
  76.         DO CASE
  77.             CASE Choice = 'N'
  78.             CASE Choice = 'P'
  79.             CASE Choice = 'D'
  80.             CASE Choice = 'U'
  81.             CASE Choice = 'T'
  82.             CASE Choice = 'R'
  83.             CASE Choice = 'F'
  84. *               DO something
  85.                 @ 0,60 SAY "Good Input-"+Choice
  86.             CASE Choice = 'Q'
  87.                 RETURN TO MASTER
  88.             OTHERWISE
  89.                 badkey = .T.
  90.         ENDCASE
  91.     ENDDO     && do while(badkey)
  92. ENDDO   && the main true loop
  93.